Fortran 利用 reshape 进行二维数组赋值

istat = reshape([1,1,2,2,3,3], [2,3])